home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / Personal / CheckWriter / Check Writer / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-09  |  3.7 KB  |  36 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>15</cardCount>
  7.     <cardID>4369</cardID>
  8.     <listID>3546</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- distribute -- Prepare stack for distribution.  This handler strips
  17. -- all "personal" information from the Check Writer and Check Register
  18. -- stacks to create copies suitable for distribution.  To make a
  19. -- distribution copy, first copy the two stacks (since you don't want
  20. -- to delete all the data from your "real" copies).  Put the
  21. -- distribution copies into a folder different from your real copies
  22. -- and make sure their names are "Check Writer" and "Check Register".
  23. -- Then just open the distribution "Check Writer" stack, show the
  24. -- message box, and enter the command "distribute".  Then watch the
  25. -- show.
  26.  
  27. on distribute
  28.  
  29. hide msg -- So we can see better
  30. answer "OK to delete all data?"
  31. if it is empty then exit distribute
  32. set lockMessages to true
  33.  
  34. -- Clear the printing template.
  35.  
  36. go to card "Template"
  37. get empty
  38. put it into card field "Date"
  39. put it into card field "Year"
  40. put it into card field "Pay To"
  41. put it into card field "Amount"
  42. put it into card field "Text Amount"
  43. put it into card field "For"
  44.  
  45. -- Delete all but the first check.
  46.  
  47. go to second card of bkgnd "Check"
  48. if the result is empty then
  49. repeat with i = the number of this card ¬¨
  50. to the number of last card of bkgnd "Check"
  51. doMenu "Delete Card"
  52. end repeat
  53. end if
  54.  
  55. -- Compact the Writer stack.
  56.  
  57. go to first card
  58. doMenu "Compact Stack"
  59.  
  60. -- Do distribution stuff for check register.
  61.  
  62. go to stack "Check Register"
  63. send "distribute" to stack "Check Register"
  64.  
  65. set lockMessages to false
  66. end distribute
  67.  
  68.  
  69. -- newVersion -- Store a new version number.
  70.  
  71. on newVersion
  72. hide msg -- So we can see better
  73. go to first card
  74. ask "What is the new version number?" with "nn.nn"
  75. if it is empty then exit newVersion
  76. put "Version " & it into version
  77. put version into card field "version"
  78. go to card "ShareWare"
  79. put version into card field "version"
  80. go to card "address"
  81. put version into card field "version"
  82. go to stack "Check Register"
  83. send "newVersion" && quote & version & quote to stack "Check Register"
  84. go to stack "Check Writer"
  85. end newVersion
  86.  
  87. </script>
  88.     <background id="2720" file="background_2720.xml" name="Check" />
  89.     <background id="3629" file="background_3629.xml" name="plain" />
  90.     <background id="6840" file="background_6840.xml" name="help" />
  91.     <card id="4369" file="card_4369.xml" marked="false" name="" owner="3629" />
  92.     <card id="2465" file="card_2465.xml" marked="false" name="ShareWare" owner="3629" />
  93.     <card id="7395" file="card_7395.xml" marked="false" name="Help" owner="6840" />
  94.     <card id="7114" file="card_7114.xml" marked="false" name="" owner="6840" />
  95.     <card id="7866" file="card_7866.xml" marked="false" name="" owner="6840" />
  96.     <card id="7942" file="card_7942.xml" marked="false" name="" owner="6840" />
  97.     <card id="8512" file="card_8512.xml" marked="false" name="" owner="6840" />
  98.     <card id="8954" file="card_8954.xml" marked="false" name="" owner="6840" />
  99.     <card id="9213" file="card_9213.xml" marked="false" name="" owner="6840" />
  100.     <card id="9443" file="card_9443.xml" marked="false" name="" owner="6840" />
  101.     <card id="12510" file="card_12510.xml" marked="false" name="" owner="6840" />
  102.     <card id="9647" file="card_9647.xml" marked="false" name="address" owner="3629" />
  103.     <card id="4208" file="card_4208.xml" marked="false" name="Template" owner="3629" />
  104.     <card id="5348" file="card_5348.xml" marked="false" name="print" owner="3629" />
  105.     <card id="6363" file="card_6363.xml" marked="false" name="" owner="2720" />
  106. </stack>
  107.